home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gspath.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-17  |  11.5 KB  |  410 lines
  1. /* Copyright (C) 1989, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gspath.c */
  20. /* Basic path routines for Ghostscript library */
  21. #include "gx.h"
  22. #include "gserrors.h"
  23. #include "gxfixed.h"
  24. #include "gxmatrix.h"
  25. #include "gscoord.h"            /* requires gsmatrix.h */
  26. #include "gzstate.h"
  27. #include "gzpath.h"
  28. #include "gxdevice.h"            /* for gxcpath.h */
  29. #include "gzcpath.h"
  30.  
  31. /* ------ Miscellaneous ------ */
  32.  
  33. int
  34. gs_newpath(gs_state *pgs)
  35. {    gx_path_release(pgs->path);
  36.     gx_path_init(pgs->path, pgs->memory);
  37.     return 0;
  38. }
  39.  
  40. int
  41. gs_closepath(gs_state *pgs)
  42. {    gx_path *ppath = pgs->path;
  43.     int code = gx_path_close_subpath(ppath);
  44.  
  45.     if ( code < 0 )
  46.       return code;
  47.     if ( path_start_outside_range(ppath) )
  48.       path_set_outside_position(ppath, ppath->outside_start.x,
  49.                     ppath->outside_start.y);
  50.     return code;
  51. }
  52.  
  53. int
  54. gs_upmergepath(gs_state *pgs)
  55. {    return gx_path_add_path(pgs->saved->path, pgs->path);
  56. }
  57.  
  58. /* Get the current path (for internal use only). */
  59. gx_path *
  60. gx_current_path(const gs_state *pgs)
  61. {    return pgs->path;
  62. }
  63.  
  64. /* ------ Points and lines ------ */
  65.  
  66. /*
  67.  * Define clamped values for out-of-range coordinates.
  68.  * Currently the path drawing routines can't handle values
  69.  * close to the edge of the representable space.
  70.  */
  71. #define max_coord_fixed (max_fixed - int2fixed(1000)) /* arbitrary */
  72. #define min_coord_fixed (-max_coord_fixed)
  73. private void
  74. clamp_point(gs_fixed_point *ppt, floatp x, floatp y)
  75. {
  76. #define clamp_coord(xy)\
  77.   ppt->xy = (xy > fixed2float(max_coord_fixed) ? max_coord_fixed :\
  78.          xy < fixed2float(min_coord_fixed) ? min_coord_fixed :\
  79.          float2fixed(xy))
  80.     clamp_coord(x);
  81.     clamp_coord(y);
  82. #undef clamp_coord
  83. }
  84.  
  85. int
  86. gs_currentpoint(const gs_state *pgs, gs_point *ppt)
  87. {    gx_path *ppath = pgs->path;
  88.     int code;
  89.     gs_fixed_point pt;
  90.  
  91.     if ( path_outside_range(ppath) )
  92.       return gs_itransform((gs_state *)pgs,
  93.                    ppath->outside_position.x,
  94.                    ppath->outside_position.y, ppt);
  95.     code = gx_path_current_point(pgs->path, &pt);
  96.     if ( code < 0 )
  97.       return code;
  98.     return gs_itransform((gs_state *)pgs,
  99.                  fixed2float(pt.x), fixed2float(pt.y), ppt);
  100. }
  101.  
  102. int
  103. gs_moveto(gs_state *pgs, floatp x, floatp y)
  104. {    gx_path *ppath = pgs->path;
  105.     gs_fixed_point pt;
  106.     int code;
  107.  
  108.     if ( (code = gs_point_transform2fixed(&pgs->ctm, x, y, &pt)) < 0 )
  109.       { if ( pgs->clamp_coordinates )
  110.           { /* Handle out-of-range coordinates. */
  111.         gs_point opt;
  112.  
  113.         if ( code != gs_error_limitcheck ||
  114.              (code = gs_transform(pgs, x, y, &opt)) < 0
  115.            )
  116.           return code;
  117.         clamp_point(&pt, opt.x, opt.y);
  118.         code = gx_path_add_point(ppath, pt.x, pt.y);
  119.         if ( code < 0 )
  120.           return code;
  121.         path_set_outside_position(ppath, opt.x, opt.y);
  122.         ppath->outside_start = ppath->outside_position;
  123.         ppath->start_flags = ppath->state_flags;
  124.           }
  125.         return code;
  126.       }
  127.     return gx_path_add_point(ppath, pt.x, pt.y);
  128. }
  129.  
  130. int
  131. gs_rmoveto(gs_state *pgs, floatp x, floatp y)
  132. {    gs_fixed_point dpt;
  133.     int code;
  134.  
  135.     if ( (code = gs_distance_transform2fixed(&pgs->ctm, x, y, &dpt)) < 0 ||
  136.          (code = gx_path_add_relative_point(pgs->path, dpt.x, dpt.y)) < 0
  137.        )
  138.       { /* Handle all exceptional conditions here. */
  139.         gs_point upt;
  140.  
  141.         if ( (code = gs_currentpoint(pgs, &upt)) < 0 )
  142.           return code;
  143.         return gs_moveto(pgs, upt.x + x, upt.y + y);
  144.       }
  145.     return code;
  146. }
  147.  
  148. int
  149. gs_lineto(gs_state *pgs, floatp x, floatp y)
  150. {    gx_path *ppath = pgs->path;
  151.     int code;
  152.     gs_fixed_point pt;
  153.  
  154.     if ( (code = gs_point_transform2fixed(&pgs->ctm, x, y, &pt)) < 0 )
  155.       { if ( pgs->clamp_coordinates )
  156.           { /* Handle out-of-range coordinates. */
  157.         gs_point opt;
  158.  
  159.         if ( code != gs_error_limitcheck ||
  160.              (code = gs_transform(pgs, x, y, &opt)) < 0
  161.            )
  162.           return code;
  163.         clamp_point(&pt, opt.x, opt.y);
  164.         code = gx_path_add_line(ppath, pt.x, pt.y);
  165.         if ( code < 0 )
  166.           return code;
  167.         path_set_outside_position(ppath, opt.x, opt.y);
  168.           }
  169.         return code;
  170.       }
  171.     return gx_path_add_line(pgs->path, pt.x, pt.y);
  172. }
  173.  
  174. int
  175. gs_rlineto(gs_state *pgs, floatp x, floatp y)
  176. {    gx_path *ppath = pgs->path;
  177.     gs_fixed_point dpt;
  178.     fixed nx, ny;
  179.     int code;
  180.  
  181.     if ( !path_position_in_range(ppath) ||
  182.          (code = gs_distance_transform2fixed(&pgs->ctm, x, y, &dpt)) < 0 ||
  183.          /* Check for overflow in addition. */
  184.          (((nx = ppath->position.x + dpt.x) ^ dpt.x) < 0 &&
  185.           (ppath->position.x ^ dpt.x) >= 0) ||
  186.          (((ny = ppath->position.y + dpt.y) ^ dpt.y) < 0 &&
  187.           (ppath->position.y ^ dpt.y) >= 0) ||
  188.          (code = gx_path_add_line(ppath, nx, ny)) < 0
  189.        )
  190.       { /* Handle all exceptional conditions here. */
  191.         gs_point upt;
  192.  
  193.         if ( (code = gs_currentpoint(pgs, &upt)) < 0 )
  194.           return code;
  195.         return gs_lineto(pgs, upt.x + x, upt.y + y);
  196.       }
  197.     return code;
  198. }
  199.  
  200. /* ------ Curves ------ */
  201.  
  202. int
  203. gs_curveto(gs_state *pgs,
  204.   floatp x1, floatp y1, floatp x2, floatp y2, floatp x3, floatp y3)
  205. {    gs_fixed_point p1, p2, p3;
  206.     int code1 = gs_point_transform2fixed(&pgs->ctm, x1, y1, &p1);
  207.     int code2 = gs_point_transform2fixed(&pgs->ctm, x2, y2, &p2);
  208.     int code3 = gs_point_transform2fixed(&pgs->ctm, x3, y3, &p3);
  209.     gx_path *ppath = pgs->path;
  210.  
  211.     if ( (code1 | code2 | code3) < 0 )
  212.       { if ( pgs->clamp_coordinates )
  213.           { /* Handle out-of-range coordinates. */
  214.         gs_point opt1, opt2, opt3;
  215.         int code;
  216.  
  217.         if ( (code1 < 0 && code1 != gs_error_limitcheck) ||
  218.              (code1 = gs_transform(pgs, x1, y1, &opt1)) < 0
  219.            )
  220.           return code1;
  221.         if ( (code2 < 0 && code2 != gs_error_limitcheck) ||
  222.              (code2 = gs_transform(pgs, x2, y2, &opt2)) < 0
  223.            )
  224.           return code2;
  225.         if ( (code3 < 0 && code3 != gs_error_limitcheck) ||
  226.              (code3 = gs_transform(pgs, x3, y3, &opt3)) < 0
  227.            )
  228.           return code3;
  229.         clamp_point(&p1, opt1.x, opt1.y);
  230.         clamp_point(&p2, opt2.x, opt2.y);
  231.         clamp_point(&p3, opt3.x, opt3.y);
  232.         code = gx_path_add_curve(ppath,
  233.                      p1.x, p1.y, p2.x, p2.y, p3.x, p3.y);
  234.         if ( code < 0 )
  235.           return code;
  236.         path_set_outside_position(ppath, opt3.x, opt3.y);
  237.         return code;
  238.           }        
  239.         else
  240.           return (code1 < 0 ? code1 : code2 < 0 ? code2 : code3);
  241.       }
  242.     return gx_path_add_curve(ppath,
  243.                  p1.x, p1.y, p2.x, p2.y, p3.x, p3.y);
  244. }
  245.  
  246. int
  247. gs_rcurveto(gs_state *pgs,
  248.   floatp dx1, floatp dy1, floatp dx2, floatp dy2, floatp dx3, floatp dy3)
  249. {    gx_path *ppath = pgs->path;
  250.     gs_fixed_point p1, p2, p3;
  251.     fixed ptx, pty;
  252.     int code;
  253.  
  254.     /****** SHOULD CHECK FOR OVERFLOW IN ADDITION ******/
  255.     if ( !path_position_in_range(ppath) ||
  256.          (code = gs_distance_transform2fixed(&pgs->ctm, dx1, dy1, &p1)) < 0 ||
  257.          (code = gs_distance_transform2fixed(&pgs->ctm, dx2, dy2, &p2)) < 0 ||
  258.          (code = gs_distance_transform2fixed(&pgs->ctm, dx3, dy3, &p3)) < 0 ||
  259.          (ptx = ppath->position.x, pty = ppath->position.y,
  260.           code = gx_path_add_curve(ppath, ptx + p1.x, pty + p1.y,
  261.                        ptx + p2.x, pty + p2.y,
  262.                        ptx + p3.x, pty + p3.y)) < 0
  263.        )
  264.       { /* Handle all exceptional conditions here. */
  265.         gs_point upt;
  266.  
  267.         if ( (code = gs_currentpoint(pgs, &upt)) < 0 )
  268.           return code;
  269.         return gs_curveto(pgs, upt.x + dx1, upt.y + dy1,
  270.                   upt.x + dx2, upt.y + dy2,
  271.                   upt.x + dx3, upt.y + dy3);
  272.       }
  273.     return code;
  274. }
  275.  
  276. /* ------ Clipping ------ */
  277.  
  278. /* Forward references */
  279. private int common_clip(P2(gs_state *, int));
  280. private int set_clip_path(P3(gs_state *, gx_clip_path *, int));
  281.  
  282. int
  283. gs_clippath(gs_state *pgs)
  284. {    gx_path path, cpath;
  285.     int code = gx_cpath_path(pgs->clip_path, &path);
  286.  
  287.     if ( code < 0 )
  288.       return code;
  289.     code = gx_path_copy(&path, &cpath, 1);
  290.     if ( code < 0 )
  291.       return code;
  292.     gx_path_release(pgs->path);
  293.     *pgs->path = cpath;
  294.     return 0;
  295. }
  296.  
  297. int
  298. gs_initclip(gs_state *pgs)
  299. {    register gx_device *dev = gs_currentdevice(pgs);
  300.     gs_rect bbox;
  301.     gs_fixed_rect box;
  302.     gs_matrix imat;
  303.  
  304.     if ( dev->ImagingBBox_set )
  305.     {    /* Use the ImagingBBox, relative to default user space. */
  306.         gs_defaultmatrix(pgs, &imat);
  307.         bbox.p.x = dev->ImagingBBox[0];
  308.         bbox.p.y = dev->ImagingBBox[1];
  309.         bbox.q.x = dev->ImagingBBox[2];
  310.         bbox.q.y = dev->ImagingBBox[3];
  311.     }
  312.     else
  313.     {    /* Use the MediaSize indented by the HWMargins, */
  314.         /* relative to unrotated user space adjusted by */
  315.         /* the Margins.  (We suspect this isn't quite right, */
  316.         /* but the whole issue of "margins" is such a mess that */
  317.         /* we don't think we can do any better.) */
  318.         (*dev_proc(dev, get_initial_matrix))(dev, &imat);
  319.         /* Adjust for the Margins. */
  320.         imat.tx += dev->Margins[0] * dev->HWResolution[0] /
  321.           dev->MarginsHWResolution[0];
  322.         imat.ty += dev->Margins[1] * dev->HWResolution[1] /
  323.           dev->MarginsHWResolution[1];
  324.         bbox.p.x = dev->HWMargins[0];
  325.         bbox.p.y = dev->HWMargins[1];
  326.         bbox.q.x = dev->MediaSize[0] - dev->HWMargins[2];
  327.         bbox.q.y = dev->MediaSize[1] - dev->HWMargins[3];
  328.     }
  329.     gs_bbox_transform(&bbox, &imat, &bbox);
  330.     /* Round the clipping box so that it doesn't get ceilinged. */
  331.     box.p.x = fixed_rounded(float2fixed(bbox.p.x));
  332.     box.p.y = fixed_rounded(float2fixed(bbox.p.y));
  333.     box.q.x = fixed_rounded(float2fixed(bbox.q.x));
  334.     box.q.y = fixed_rounded(float2fixed(bbox.q.y));
  335.     return gx_clip_to_rectangle(pgs, &box);
  336. }
  337.  
  338. int
  339. gs_clip(gs_state *pgs)
  340. {    return common_clip(pgs, gx_rule_winding_number);
  341. }
  342.  
  343. int
  344. gs_eoclip(gs_state *pgs)
  345. {    return common_clip(pgs, gx_rule_even_odd);
  346. }
  347.  
  348. private int
  349. common_clip(gs_state *pgs, int rule)
  350. {    gx_path fpath;
  351.     int code = gx_path_flatten_accurate(pgs->path, &fpath, pgs->flatness,
  352.                         pgs->accurate_curves);
  353.     if ( code < 0 ) return code;
  354.     code = gx_cpath_intersect(pgs, pgs->clip_path, &fpath, rule);
  355.     if ( code != 1 ) gx_path_release(&fpath);
  356.     if ( code < 0 ) return code;
  357.     return set_clip_path(pgs, pgs->clip_path, rule);
  358. }
  359.  
  360. int
  361. gs_setclipoutside(gs_state *pgs, bool outside)
  362. {    return gx_cpath_set_outside(pgs->clip_path, outside);
  363. }
  364.  
  365. bool
  366. gs_currentclipoutside(const gs_state *pgs)
  367. {    return gx_cpath_is_outside(pgs->clip_path);
  368. }
  369.  
  370. /* Establish a rectangle as the clipping path. */
  371. /* Used by initclip and by the character and Pattern cache logic. */
  372. int
  373. gx_clip_to_rectangle(gs_state *pgs, gs_fixed_rect *pbox)
  374. {    gx_clip_path cpath;
  375.     int code = gx_cpath_from_rectangle(&cpath, pbox, pgs->memory);
  376.     if ( code < 0 ) return code;
  377.     gx_cpath_release(pgs->clip_path);
  378.     return set_clip_path(pgs, &cpath, gx_rule_winding_number);
  379. }
  380.  
  381. /* Set the clipping path to the current path, without intersecting. */
  382. /* Currently only used by the insideness testing operators, */
  383. /* but might be used by viewclip eventually. */
  384. /* The algorithm is very inefficient; we'll improve it later if needed. */
  385. int
  386. gx_clip_to_path(gs_state *pgs)
  387. {    gs_fixed_rect bbox;
  388.     int code;
  389.     if ( (code = gx_path_bbox(pgs->path, &bbox)) < 0 ||
  390.          (code = gx_clip_to_rectangle(pgs, &bbox)) < 0
  391.        )
  392.       return code;
  393.     return gs_clip(pgs);
  394. }
  395.  
  396. /* Set the clipping path (internal). */
  397. private int
  398. set_clip_path(gs_state *pgs, gx_clip_path *pcpath, int rule)
  399. {    *pgs->clip_path = *pcpath;
  400.     pgs->clip_rule = rule;
  401. #ifdef DEBUG
  402. if ( gs_debug_c('P') )
  403.   {    extern void gx_cpath_print(P1(const gx_clip_path *));
  404.     dprintf("[P]Clipping path:\n"),
  405.     gx_cpath_print(pcpath);
  406.   }
  407. #endif
  408.     return 0;
  409. }
  410.